home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #8 / utv1n8s2.d64 / label maker 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.2 KB  |  186 lines
  1. 1 rem individual label maker
  2. 2 poke53281,0:poke53280,11
  3. 3 printchr$(8);chr$(14)
  4. 4 print"[147]                                      [146][158]  ";
  5. 5 print"   {$60}{$60}{$60}{$60}{$60}{$60}                        [166][166][166]  [146][158]  ";
  6. 6 print"   {$60}{$60}{$60}{$60}{$60}{$60}                        [166][166][166]  [146][158]  ";
  7. 7 print"   {$60}{$60}{$60}{$60}{$60}{$60}                        [166][166][166]  [146][158]  ";
  8. 8 print"                                      [146][158]  ";
  9. 9 print"                                      [146][158]  ";
  10. 10 print"                                      [146][158]  ";
  11. 11 print"          LABEL MAKER 64              [146][158]  ";
  12. 12 print"          (C) 1987 by                 [146][158]  ";
  13. 13 print"          Barbara H. Schulak          [146][158]  ";
  14. 14 print"          Published by                [146][158]  ";
  15. 15 print"          [211]oftdisk [208]ublishing, [201]nc.   [146][158]  ";
  16. 16 print"[158]                                      [146][158]  ";
  17. 17 print"                                      [146][158]  ";
  18. 18 print"                                      [146][158]  "
  19. 20 gosub9000
  20. 25 printtab(7)"[208]ress [211][208][193][195][197][194][193][210] to [195]ontinue"
  21. 28 get a$:if a$<>" " then 28
  22. 30 nl=5:dima$(nl)
  23. 40 print"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 50 print" [221][150]                                    [154][146][221]"
  25. 60 print" [221][150]           [204]abel [205]aker 64[150]           [154][146][221]"
  26. 70 print" [221][150]                                    [154][146][221]"
  27. 80 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  28. 90 fori=1to7:print" [154][221]                                    [154][146][221]":next
  29. 100 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  30. 110 fori=1to9:print" [221][153]                                    [154][146][221]":next
  31. 120 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  32. 140 cr$="":cw$=""
  33. 190 gosub880:iff=0thengosub840
  34. 195 iffthengosub4000:f=0
  35. 200 gosub930
  36. 210 getk$:ifk$=""then210
  37. 220 k=val(k$):ifk<1ork>7then210
  38. 230 ifk=7thensys(8*4096)+4:rem uptime
  39. 240 onkgosub270,2000,340,530,680,3000
  40. 245 iffthen40
  41. 250 goto200
  42. 260 :
  43. 270 gosub880:gosub840:printcr$:printtab(12)"[158]>>[195][210][197][193][212][197][160][204][193][194][197][204]<<"
  44. 275 printtab(6)"[153][197]nter line and press [210][197][212][213][210][206].
  45. 280 [153]cw$;"";
  46. 290 z[178]1
  47. 300 [153][163]6);:l[178]30:[141]1010:a$(z)[178]v$:[153]
  48. 310 z[178]z[170]1:[139]z[179][178]nl[167]300
  49. 320 [141]840:[142]
  50. 330 :
  51. 340 [141]840:f1[178]0
  52. 350 [153]cr$:[153][163]16)"sys>>(NULL)(NULL)atnstr$<<"
  53. 360 [153][163]3)"printascilename: print";
  54. 370 l[178]14:[141]1010:[153]:[139]v$[178]""[167][141]840:[142]
  55. 380 [141]880:[153]cr$;"print";
  56. 390 [159]15,8,15,"i0"
  57. 400 [159]2,8,2,"0:"[170]v$[170]",s,r"
  58. 410 [132]15,e,e$,e1,e2
  59. 420 [139]e[167][160]2:[160]15
  60. 425 [153]"str$isk (NULL)tatus:";e;e$
  61. 430 [139]e[167][129]t[178]1[164]1500:[130]:[141]840:[142]
  62. 440 [129]i[178]1[164]nl:a$(i)[178]""
  63. 450 [161]#2,x$:[139][198](x$)[178]13[167]470
  64. 460 a$(i)[178]a$(i)[170]x$:[137]450
  65. 470 [130]
  66. 480 [160]2:[160]15
  67. 490 [153]cw$;
  68. 500 [129]i[178]1[164]nl:[153][163]6)"";a$(i):[130]
  69. 510 [141]840:[142]
  70. 520 :
  71. 530 [141]840:f1[178]0
  72. 540 [153]cr$:[153][163]16)"sys>>(NULL)atn(NULL)val<<"
  73. 550 [153][163]3)"printascilename: print";
  74. 560 l[178]14:[141]1010:[153]:[139]v$[178]""[167][141]840:[142]
  75. 570 [159]15,8,15,"i0"
  76. 580 [159]2,8,2,"@0:"[170]v$[170]",s,w"
  77. 590 [132]15,e,e$,e1,e2
  78. 600 [139]e[167][160]2:[160]15
  79. 605 [153][163]3)"str$isk (NULL)tatus:"e;e$
  80. 610 [139]e[167][129]t[178]1[164]1500:[130]:[141]840:[142]
  81. 620 [129]i[178]1[164]nl
  82. 630 [152]2,a$(i)
  83. 640 [130]
  84. 650 [160]2:[160]15
  85. 660 [141]840:[142]
  86. 670 :
  87. 680 [141]840:[153]cr$
  88. 690 [153][163]15)"sys>>(NULL)(NULL)right$(NULL)(NULL)<<"
  89. 700 [153][163]8)"print(NULL)umber of copies [1-9]:"
  90. 710 [161]k$:[139]k$[178]""[167]710
  91. 720 [139]k$[178][199](13)[167][141]840:[142]
  92. 730 nc[178][197](k$):[139]nc[179]1[176]nc[177]9[167]710
  93. 740 [153][163]10)"print(NULL)rinter ready [(NULL)/(NULL)]"
  94. 750 [161]k$:[139]k$[178]""[167]750
  95. 760 [139]k$[179][177]"y"[167][141]840:[142]
  96. 770 [151] 780,4:[151] 782,7:[158]828
  97. 775 [139] [194](783) [175] 1 [167] [160] 4:[141] 5000:[137] 680
  98. 780 [157] 4:[129]j[178]1[164]nc:[129]i[178]1[164]nl
  99. 790 [153][163]3)a$(i)
  100. 800 [130]:[153]:[130]
  101. 810 [152]4:[160]4
  102. 820 [141]840:[142]
  103. 830 :
  104. 840 [153]cr$
  105. 850 [129]i[178]1[164]7:[153][163]3)"print                                   ":[130]
  106. 860 [142]
  107. 870 :
  108. 880 [153]cw$;
  109. 890 [129]i[178]1[164]5
  110. 900 [153][163]2)"";i;"cmd]                                "
  111. 910 [130]:[142]
  112. 920 :
  113. 930 [153]cr$
  114. 940 [153][163]3)"print1] lenreate (NULL)abel"
  115. 945 [153][163]3)"2] valdit (NULL)abel"
  116. 950 [153][163]3)"3] (NULL)oad valxisting (NULL)abel"
  117. 960 [153][163]3)"4] (NULL)ave (NULL)abel"
  118. 970 [153][163]3)"5] (NULL)rint (NULL)abel
  119. 975 printtab(3)"6] [214]iew [196]irectory
  120. 980 [153][163]3)"7] (NULL)eturn to (NULL)p(NULL)ime
  121. 990 return
  122. 1000 :
  123. 1010 v$="":k$="":ct=0:print"[164][157]";
  124. 1020 getk$:ifk$=""then1020
  125. 1030 ifk$=chr$(13)then1150:rem return
  126. 1040 ifk$=chr$(20)andct<>0thenprint" [157][157][164][157]";:ct=ct-1:v$=left$(v$,ct):goto1020
  127. 1050 ifk$=" "then1120:rem space
  128. 1060 if(k$>"@")and(k$<"[")then1120:rem alpha
  129. 1070 if(k$>"/")and(k$<":")then1120:rem numeric
  130. 1080 if(k$>"[192]")and(k$<"[219]")then1120:rem upper case
  131. 1090 if(k$>" ")and(k$<"0")then1120:rem !"#$%&'()*+,-./ punctuation
  132. 1100 [139](k$[177]"9")[175](k$[179]"@")[167]1120:[143] :;<=>? punctuation
  133. 1110 [137]1020
  134. 1120 [139]ct[177][178]l[167]1020
  135. 1130 ct[178]ct[170]1:v$[178]v$[170]k$:[153]k$;:[151]212,0:[153]"tocmd";
  136. 1140 [137]1020
  137. 1150 [139]ct[178]0[167]v$[178]""
  138. 1160 [153]" ";
  139. 1170 [142]
  140. 1180 :
  141. 2000 [141]840:[153]cr$:[153][163]13)"sys>>valstr$right$(NULL)close(NULL)atnpeekval(NULL)<<"
  142. 2005 [153][163]8)"print(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to accept.
  143. 2006 printtab(5)"[153][208]ress [194][193][195][203] [193][210][210][207][215] (_) to edit."
  144. 2010 printcw$;"";
  145. 2020 z=1
  146. 2021 printtab(2)"[186]";
  147. 2022 getk$:ifk$=""then2022
  148. 2023 ifk$=chr$(13)then2040
  149. 2024 ifk$<>"_"then2022
  150. 2025 print"                              ";
  151. 2026 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  152. 2030 l=30:gosub1010:a$(z)=v$
  153. 2040 print:poke1266+40*z,160:z=z+1:ifz<=nlthen2021
  154. 2050 gosub840:return
  155. 2060 :
  156. 3000 print"[147][150]             [214]iew [196]irectory             [146]"
  157. 3005 sys49152
  158. 3010 print:print"[154]       [208]ress [210][197][212][213][210][206] to continue."
  159. 3020 getk$:ifk$<>chr$(13)then3020
  160. 3030 f=1:return
  161. 3040 :
  162. 4000 printcw$;
  163. 4010 fori=1to5
  164. 4020 printtab(2)"";i;"[157]] ";a$(i)                        "
  165. 4030 [130]:[142]
  166. 4040 :
  167. 5000 [153][163]13)"(NULL)rinter error"
  168. 5010 [153][163]7)"(NULL)ress (NULL)eturn to try again!"
  169. 5020 [161] a$:[139] a$[179][177][199](13) [167] 5020
  170. 5030 [142]
  171. 9000 [129]i[178]49152[164]49321:[135]a:[151]i,a:[130]
  172. 9005 [131] 32,204,255,32,108,192,176,93,169,2,162,8,160,0,32,186,255,169,2
  173. 9010 [131] 162,102,160,192,32,189,255,32,192,255,162,2,32,198,255,32,207,255
  174. 9015 [131] 32,207,255,32,207,255,32,207,255,165,144,201,64,240,40,32,207,255
  175. 9020 [131] 141,106,192,32,207,255,141,107,192,173,107,192,174,106,192,32,205
  176. 9025 [131] 189,32,207,255,208,8,169,13,32,210,255,76,40,192,32,210,255,76
  177. 9030 [131] 73,192,169,2,32,195,255,32,204,255,24,96,36,48,73,48,0,0,169,15
  178. 9032 [131] 162,8,168,32,186,255,169,2,162,104,160,192,32,189,255,32,192,255
  179. 9034 [131] 162,15,32,198,255,160,255,200,32,165,255,153,170,192,32,183,255,41
  180. 9036 [131] 64,240,242,169,15,32,195,255,32,204,255,24,173,170,192,13,171
  181. 9038 [131] 192,41,15,240,1,56,96
  182. 9040 [129] i[178]828 [164] 859:[135] a:[151] i,a:[130]
  183. 9050 [131] 72,152,72,173,12,3,32,195,255,104,168,104,162,4,32,186,255,169
  184. 9060 [131] 0,32,189,255,32,192,255,174,12,3,32,201,255,96
  185. 9070 [142]
  186.